home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / ANC_UTULITYS_16.adf / arclist / scroll.arc / ScrollI.S next >
Text File  |  1988-09-21  |  3KB  |  125 lines
  1. gfxb=$7ff00
  2. count=$7ff04
  3. baba=$7ff08
  4. charp=$7ff0c
  5. oldcop=$7ff10
  6. intrpt=$7ff14
  7.  
  8. org $40000
  9. load $40000
  10.  
  11. beg:
  12. movem.l a6/a5/a4/a3/a2/a1/a0/d7/d6/d5/d4/d3/d2/d1/d0,-(A7)
  13. move.l #scrolly,charp            ; Where scrolly resides
  14. move.b #$08,count
  15. lea    $48000,a0
  16. moveq  #$7f,d0
  17. clrmem:
  18. clr.l  (a0)+
  19. dbf    d0,clrmem
  20. move.w #$8380,$dff096
  21. move.w #$0020,$dff096
  22. move.w #$4000,$dff09a
  23. chkbtn:
  24. btst   #6,$bfe001
  25. beq    pressed
  26. cmpi.b #1,$dff006
  27. bne.s  chkbtn
  28. move.l #copl,$dff080
  29. lea    $dff000,a0
  30. clr.l  $120(a0)
  31. clr.w  $102(a0)
  32. move.l #$00048000,$e0(a0)
  33. move.l #$f9f00000,$40(a0)
  34. move.l #$ffffffff,$44(a0)
  35. move.l #$00048000,$50(a0)
  36. move.l #$00047ffe,$54(a0)
  37. clr.l  $64(a0)
  38. move.w #$0100,$58(a0)
  39. wtbl:
  40. btst   #$e,$dff002
  41. bne.s  wtbl
  42. subq.b #$01,count
  43. bne.s  endint
  44. move.b #$08,count
  45. scroll:
  46. moveq  #0,d0
  47. move.l charp,a0
  48. tst.b  (a0)
  49. bne.s  noend
  50. move.l #scrolly,a0
  51. noend:
  52. move.b (a0)+,d0
  53. move.l a0,charp
  54. cmpi.b #$60,d0
  55. blt.s  nofix
  56. subi.b #$20,d0
  57. nofix:
  58. subq.l #1,d0
  59. cmpi.b #$27,d0
  60. ble.s  okay
  61. cmpi.b #$4f,d0
  62. bgt.s  skipit1
  63. subi.l #$28*7,d0
  64. skipit1:
  65. addi.l #$28*14,d0
  66. okay:
  67. moveq  #7,d1
  68. move.l d0,a0
  69. addi.l #$50000,a0
  70. lea    $4802f,a1
  71. stch:
  72. move.b (a0),(a1)
  73. addi.w #$30,a1
  74. addi.w #$28,a0
  75. dbf    d1,stch
  76. endint:
  77. bra    chkbtn
  78. pressed:
  79. move.l $000004,a6
  80. lea    glib,a1
  81. jsr    -408(a6)
  82. move.l d0,a6
  83. move.w #$8020,$dff096
  84. move.w #$c000,$dff09a
  85. move.l $26(a6),$dff080
  86. movem.l (a7)+,a6/a5/a4/a3/a2/a1/a0/d7/d6/d5/d4/d3/d2/d1/d0
  87. rts
  88.  
  89. copl:
  90. dc.w $008e,$9080
  91. dc.w $0090,$9ae0,$0092,$0028
  92. dc.w $0094,$00d8,$0108,$0002
  93. dc.w $0104,$0010,$0100,$1200
  94. dc.w $8f01,$ff01
  95. dc.w $0182,$000f,$9001,$ff00
  96. dc.w $0182,$044f,$9101,$ff00
  97. dc.w $0182,$088f,$9201,$ff00
  98. dc.w $0182,$0ccf,$9301,$ff00
  99. dc.w $0182,$0fff,$9401,$ff00
  100. dc.w $0182,$0ccf,$9501,$ff00
  101. dc.w $0182,$088f,$9601,$ff00
  102. dc.w $0182,$044f,$9701,$ff00
  103. dc.w $0182,$000f,$9801,$ff00
  104. dc.w $fffe,$fffe
  105. glib:
  106. dc "graphics.library",0
  107. eo:
  108. scrolly:
  109. dc "tetragon proudly presents:     tetracrunch v1.02, written by "
  110. dc "antiaction of tetragon...         this is only version one, "
  111. dc "version two will soon arrive (and so will the mega version!)    "
  112. dc "    this cruncher beats 'byte killer v1.2' already on scan-width "
  113. dc "$0080! (and then it's thirty times faster!).          "
  114. dc "   greetings to (in a-z order):    academy, alpha flight, anc "
  115. dc "europe, anti protection group, bitstoppers, chenu, defjam, dirac,"
  116. dc " errorsoft, extazia, free access, gamma cracking force, h.t.i., "
  117. dc "jewels, light force team, magnificient force, m.e.s., mr.superior"
  118. dc ", network, p.a.s., phr crew, rat's company, skc, stack, starion, "
  119. dc "taurus i, the band, the connection, the harkonnen connection, "
  120. dc "the metro boys, the squad, the swap team, the young ones, "
  121. dc "twilight team (send my disks, zoono), white spirit and w.o.d.  "
  122. dc "       pheew...   no, gotta leave         bye!                "
  123. dc "                ",0
  124. end:
  125.